unit dUsuarios;

interface
uses
classes,
dObjects;

type
Tusuarios=class(TdObjects)
private
fidusuario : integer;
flogin : string;
fnome : string;
fsenha : string;
fflagativo: boolean;
fdtalteracao: tdatetime;
public
constructor create; 
destructor destroy; override;
procedure clear;
published
 property idusuario : integer read fidusuario write fidusuario;
 property login : string read flogin write flogin;
 property nome : string read fnome write fnome;
 property senha : string read fsenha write fsenha;
 property dtalteracao : tdatetime read fdtalteracao write fdtalteracao;
 property flagativo : boolean read fflagativo write fflagativo;
end;

implementation

constructor Tusuarios.create;
begin
inherited;
clear;
self.addpk(['idusuario']);
self.TableName := 'usuarios';
end;
destructor Tusuarios.destroy;
begin
inherited destroy;
end;
procedure Tusuarios.clear;
begin
 fidusuario:=0;
 flogin    :='';
 fnome     :='';
 fsenha    :='';
 fflagativo:= false;
 fdtalteracao:= 0;
end;


end.
